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jAAAAAftAAAlftAAAAAAAAAftAftftAAAA A A 



0020* OQQOOQ 
0022- 000000 
0024- 000000 

000026* 140000 

888815: 888$: 




begin: 

040 MODNAM: .ASCII 

VECTOR: 264+0 

" " iP 



/RXAE / 
OPEN 



ftftAAAAftftftftftAAAftftAAAAAAftAAA&AftAftft&AAAAAAAA 

;HODULE name. 

;0SED TO KEEP TRACK OF WBUFF USAGE 
;1ST DEVICE AD"" 



mm 



3L 

OPEN 
OPEN 
OPEN 
OPEN 

**ft*AAft***AAft«ftft*Aft«AAAAft«tt«AJ 

140000 



,,JT DEVICE VECTCR. 
ilST BR LEVEL. 
SjMD BR LEVEL. 
IDEVICE INDICATOR 1. 
;S«ITCH REGISTER 1 
;SHITCH REGISTER 2 



**********«****4ft*****4 



spoint: 

PASCNT: 

icont: 

ISPSB?! 

hrdcnt: 
sofpas: 

HRDPAS: 

syscnt: 
rannum: 

CONFIG: 

Hi): 

SVRO: 

SVR1: 

SVR2: 

SVR3: 

SVR 

SVR! 




ERATIONS PEP PASS=40 



;SHITCH REGISTER 

IflHSMISiiXH 

;STATUS WORD. 
;module start ADDR. 
;HCDULE STACK POINTER. 
;PASS COUNTER. 
;j OF ITERATIO 

ttKHSWrT 

;l0c to save total hard errors 
hoc to save soft efrors per pass 
;loc to save hard errors per pass 
;1 of sys errors accumulated 
;holds random * uhen rand macro is called 
Reserved for monitor use 
;reserved for monitor use 
Preserved for monitor use 
;loc to save ro. 
;loc to save ri. 
'oc to save r2. 
cc to save r3. 
,_gc to save r4. 
;l0c to save r5. 
;loc to save r6. 
;addr of current csr. 
;addr of good data, or 

KQNTEHTS OF CSR. 
;ADDR OF BAD DATA. QR 
1STATUS REG CONTENTS. 
JTYPE OF ERROR 
ATA. 



;li 



iiras 



. ADDRESS after end OF PISS 

;U0RDS TO MEMORY PER ITERATION 
;NORDS FROM MEMORY PER ITERATION 
;l OF INTERRUPTS PER ITERATION 
;SODULE IDENTIFICATION NUMBER=67 
;M0DULE STACK STARTS HERE. 
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.WORD 
.LIST 

hqdsp: -™ m 

;*l*ft*tt*ftftAAA«ft*«ftftAft 



***********AAaAA*A*AftA*«*AA***ftft**ftAA*ftAA**Aft*fta 
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295 



000520- 
526' 



052767 
017767 

005067 

016767 

0167" 

016" 1 

012. . 

004767 

017767 

012767 



888 1 



88888? 

C00001 
002510 
002504 
000001 

Ml 

C00001 
000001 



177452 

002752' 

C00010 



C40000 
002130 



003530" 

002362 

002354 

002350 

002350 

177410 
177400 
177376 
002274 

002276 
177352 



000534' 104405 COOOOO' 003032' 
000542' 000167 000306 



000546' 
000546- 



ffl 8881 

298 000564' 

299 000566' 

300 000574' 



104403 

mm 



001423 
012777 
004767 



COOOOO* 003556- 
000001 002164 



C0C013 
001744 



tgo: 

UNTO: 



MOV 

HOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMPB 

BNE 

BIC 

BIT 

BEG 

MSGNS, 

MOV 
MOV 
MOV 
CLR 
DEC 
BNE 
JSR 

MOV 

JSR 

TST 

BPL 

MSGN$, 

MOV 

BIS 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

M 8L 




Esfli 4 
tfl/DVIDIX 

tttfXi" 

BEGIN/NUNTO 



SPOINT,SP 

"UNITO/RO 
10<R1 
R0) + 

CFC 
PCVSET 



« 



40000, @RXCS 

C,AWDN 

RXCS 
.GO 
BEGIN, DRP1 
BRXCS £ SRXCS 
§40000,SRXCS 
§RXDB,5RXES 
SA,SRXSA 
SRXTA 

SRXCS,ACSR 
RXCS,CSRA 
SRXES,ASTAT 

BRXDB,SRXSB 

J***§* R *n**** 



34 WORDS TO MEM/ITERATION 

'RESET TRACK ADDRESS SAVE 
■FESET SECTCR ADDRESS 



FLCPPY WAS LOAD MEDIUM 



;PRESET INTERNAL PASS COUNTER 
;-»ONE INTERNAL PASS WITH DATA 

j^Icic D !f vs - SBBSI 
;br if no 
;kill test for drive o 
;has it to be tested? 

;ascii message call with common header 

;SET STACK POINTER 
;GET START OF TABLE 
;SET SIZE OF TABLE 
;CLEAR TABLES 
;SEE IF DONE 

;IF not: br 

;GC SETUP ADDRESS AND VECTOR 

;INIT UNIT Q 

>GG AWAIT DONE 

JSEE IF ERROR ON INIT 

;IF NOT: BR 

JASCII MESSAGE CALL WITH COMMON HEADER 

;GET RXCS 

;SET SRXCS TC SHOW INIT COMMAND 

;get rxes 

jget sector address 

SSET TRACK ADDRESS 

;SET CONTENTS CF RXCS 

?SET ADDRESS OF RXCS 

;GET RXES 



;re*d..st|tus„ 



****************** 



• ***** 

JMP 



MSGN$,BEGIN # NUNTO 
BR UNT1 
BIT tfl^DVIDlX 
BEQ *"*' 



8i*? ,ID 



HOV «13<@RXCS 
PC,A8D" 



JSR 



SDN 



. _ await done 
;get status b 

ft********* 1 ***************** 
INITIALIZE ERROR 

*****fi«*ft**ft*****«ft«ft*fl«ftftftft**ftftft**ft*ftftftftttft 

;GG DROP MODULE 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; GO DESELECT UNIT 
;SEE IF INIT 

;if not: br 

JREAD STATUS OF UNIT 
;gg AWAIT DONE 
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BRXDB.RO 
§200, BO 
UNTli 
MSGN$,BEGIN,NUNTO 

HRDERS C BEGIN,NULL 

•***ft*ft*ft***1k***«0rftft 

MOV #-l,UNIT0 

BIT #2,DVID1X 

BEQ IS 

•3QX K33,gRXCS 

JSR PC,ABDN 

MOV BRXDB,R0 

BIT §200, RO 

BNE fST 
MSGN$, BEGIN, NUNT1 

MOV H6,ERRTYP 

HRDERS, BEGIN, NULL 
j***************** 



;GET RXES 
;SEE IF DRY 

;IF so: BR 

; not I IvIIl£blI CALL WITH cdmmon header 

ft«*ft******^**^ft**'*ftft**ft«*ftft**ftft*ft««ft*ftftft«*ft 

;UKIT NOT AVAILABLE 
******* a*************!********,***,**** ****** 

DESELECT UNIT 
;SEE IF UNIT 1 
;if NOT: BR 

;read status of unit 1 
Sgc await done 
;read rxes 
;see if dry 

*IF SO: BR 

hSS^.^SSAGE CALL WITH COMMON HEADER 
;NOT AVAILABLE 
******************* 



************************** 



**««** 



1UNIT 1 NOT AVAILABLE 

ft* ft*********************** ft ************* 



BEQ TS. 
MSGN$, BEGIN, DRP2 
FINI 



usn rt.u 
ENDIT$, BEGIN 




PC,TSS 
TST 



ENDS/BEGIN 

;SET UP DATA BUFFER* 
100, FO 



001076' 

001100- 



mm 



MOV 
MOV 
TST 
BEQ 
CLR 



gl00.R0 

BWBUF,R1 

WVFLG 



DESELECT UNIT 1 
;SEE IF UNIT READY 

;IF so: br 

;ascii message call with common header 

;gc drop module 

;set UP the data 

;GC SELECT UNIT 

;reset retry counter 

;go write 

;set retry limit 

;READ THE DAfA 

;CHECK THE DATA 

;SELECT ANOTHER DRIVE 

;SET RETRY LIMIT 

;WRITE AGAIN 

;SET RETRY LIMIT 

;NGW READ THE STUFF 

;CHECK THE DATA 

;SIGNAL END GF ITERATION. 

MONITOR SHAIL TEST END OF PASS 

;UPDATE TRACK & SECTOR 

>GC DO AGAIN 



;DROP THE MODULE 
******** 

;SET SIZE OF BUFFER 
;SET START OF BUFFER 
;*INTERNAL PASS DATA = ZERO 
;«ALLREADY DONE:BR 
;*YES LOAD BUFFER 
M*ITH ZEROS 



lik 



RXAE D 
XRXAEO 
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mm' 



MACYll 30A(1052) 12-OCT-78 17:04 PAGE 10 



HUB: m 

Q0U62" 001403 

mm'- *?*3H 

001172* 012767 

001200" 012767 

OQI2O6' Q05Q67 

001212* 000207 

00121?* 005767 

001220* 001403 

001222- 005167 

001226* 000750 

001230' 005167 

mm- np 

001246* 000207 



001? 
002: 



1$: 
2$: 



4$: 



1$: 
2$: 
3$: 



BEQ 3 
RANDS, BEG 
MQV Rj 
MOV R^ 
DEC R: 
DEC R 



/SRI 



NNUM,R3 
,(Rl5+ 



HOV 
MOV 

m 



#125125,R3 
R3/CRD+ 

PC 



;+ USE RANDOM DATA? 

J4 HO: BRANCH 

j+ DP THE BUFFER 

;* HITH DECREMENTING 

J* CHARACTERS STARTING 

>4 HTTH A RANDOM NUMBER. 

U WHEN FULL LEAVE 

;+0SE ALTERNATING 

i* ONES AND ZEROS TO 



;SELECT UNIT FOR TEST 

TST 

BEQ 
TST 

IP 

MO? 

MOV 

CLR 

RTS 

TST 

BEQ 

COM 

BR 

COM 

CLR 

MO? 

RTS 



«&*«««*«** 





DRIVE 

llT 1 

R 

F UNIT 

UNIT UNDER 



560 SEE 

5SET UN 

JSET DRIVE NUMBER F.OR 



; CLEAN DRIVE NUMBER 
-■"ETU- 



IS AVAILABLE 

TEST 

PRINTS 



JRETURN 

ffiSF: SS" 

JSHITCH UNITS 
JSELECT NEXT 



AVAILABLE 



III® KM 

ET DRIVE N 



/SE' 

jreturn 



NUMBER FOR PRINTS 



; VECTOR SET UP 



001250" 

mur- 

001264' 
001306* 



016700 

11818 

016767 
016767 

Ma 



176534 

001716* 

' .26 



176516 001516 

mm mm 



MOV 

MOV 

MOVB 

HOV 

MQV 

m 



VECTDR,RQ 

«NTRUPT<<R0)* 
RljRO) 

addr,rxcs 
addr,rxdb 
|^r5db 



JSET UP INTERRUPT HANDLER ADDRESS 

JSET BR LEVEL 

;SET ADDRESS OF RXCS 

JGET ADDRESS OF RXCS 

JSET ADDRESS OF DATA BUFFER 



001310- 
001316' 

881111- 

001330' 
001336* 



mm 

101401 
000470 
016767 
062767 



000003 
000033 



001444 
000012 



001456 
001450 



001436 
001426 



TSS: 

2$: 



;TRACK AND SECTOR UPDATE********** 



ADD 

CMP 

BLOS 

BR 

MOV 

ADD 



II 5 ' 



SA 

SA 



SASAV ( SA 

#12, tS 



;BUMP SECTOR ADDRESS 

;SEE IF DONE SECTORS 

5IF SO: BR 

JRETURN 

;RESET SA 

INCREMENT TRACK ADDRESS 
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4400 COOOOO* 



11 

000000 

001106 
001100 
001122 

001112 

001100 



CMP 

BHIS 

MOV 

INC 

TST 

BEQ 

CLR 

MOV 

MOV 

BR 

CMP 

BR 

MOV 

MOV 

INC 

CMP 

BNE 

MOV 

MOV 

m 




;SEE IF DONE TRACKS 

;IF NOT: BR 

JRESET TRACK ADDRESS 

;BUMP INTERNAL STARTING SECTOR 

J+bRITING SPECIAL DATA PATTERN? 

S-frNO CONTINUE 

4VES;HAVE CYCLED THRU BOLTH DRIVES ONCE 

■""" "™ - POINTERS TO WRITE 



5-frMOH R 
>*SAHE I 



SET POINTERS -_ 

LACES HITH REGULAR PATTERN 



J4,PCNTR 
PCNTR # SASAV 



,TASAV 



;SEE IF DONE THREE 

jif so: br 

>ELSE BUMP STARTING SECTOR ADDRESS 

;SAVE TA AND SA AND LEAVE 

JRESET PASS COUNTER 

JRESET STARTING SECTOR 

JBUNP STARTING TRACK ADDRESS 

;SEE IF DONE TRACKS 

JIF NOT: BR 

JELSE RESET TRACK STARTING ADDRESS 

;SAVE TRACK ADDRESS 

;SAVE SECTOR 



JWRITE SUBROUTINE********** 



MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOVB 

DEC 

BNE 

JSR 

TST 

BPL 

MOV 

MOV 

BIS 

MOV 



CMD 
WTF 



lift 



Rl 



CMD,fiRXCS 

PC,A8TR 

(R1)+,@RXDB 

PC/AHDN 



L/A«l 

RXCS 

RXCS # CSRA 

CMD £ ACSR 

gRXCS,ACSR 

nu> |RXDB,ASTAT 

MSGN$,BEGIN,BFER 

»I.*. M HiclHIB.*«.< 

HRDER$,BEGIN,NULL 

• *************** ******* 

MOV UTT,CMD 
BIS 8105 € CMD 

6" * — 



MOV 



CMDsgRXCS 



tnu/HKXi 

JSR PC/AHTB 
MOV SA,flRXDB 
JSR PC/ftWTR 
MOV TA,@RXDB 
EXIT$, BEGIN 



JSET TO FILL BUFFER 
JSET WRITE FLAG 

Hi #SSI E SP BMH" BUFFER 

jlgad command 

5GO w AWAIT TRANSFER READY 
JFILL BUFFER 
;SEE IF DONE FILL 
jif NOT: BR 
;GO AWAIT DONE 

;see IF error 

;IF NOT: BR 

;load address of rxcs 

i\m m m amm 

JLCAD rxes 

;ASCII MESSAGE CALL HITH COMMON HEADER 

A ft** A ******************** ******** ** ****** 

jbuffer fill error 

A**************************************** 
;SELECT DRIVE 

;SET TO WRITE SECTOR + INT ENABLE 
JLCAD COMMAND 
;GC AWAIT TRANSFER READY 
JLOAD SECTOR ADDRESS 
>GC AWAIT TRANSFER READY 
;L0AD TRACK ADDRESS 

;EXIT TO MONITOR. MODUIE WAIT FOR INTERRUPT. 



RXAE D 
XRXAEO 



469 
470 
471 

I 

475 . 

M 8; 
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001716* 000004 000000* 001724' 
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NTRUPT: 



001724* 004767 000072 

S OT!}H$8 176054 
8HII- iiiii? i7Mso 



001744 
001750 

mm 

001772 
001776 

883893 

002016 



1$: 



005067 


001016 




016767 


001006 

mn 


001002 

ilil?H* 


mm- 

004767 


8MM5 




016777 


001006 


mm 


mm 


000774 


104400 


000000* 





000736 

000756 000724 

000720 



000746 
176022 




IS: 



2$: 



000000* 003032* 



PIRQS, BEGIN, 1$ 



_;_QUEUE UP TO CONTINUE AT 1$ AHD RTI 



JSR 
MOV 
1ST 

MOV 
RTS 



PC,SECK 
VECT0R,R0 

:ro> 



Bit 



•GO CHECK FOR ERROR 

;get vector address 
;bomp pointer 

;AS|URE RESET TO BR LEVEL 5 



ETURN 



;read subroutine********** 



RXCS 



CLR 
MOV 
BIS 
MOV 
JSR 
MOV 

8L,wHi MMB 

JSTATUS ERROR CHECK 
CLR — « — 



WTF 
UTT,CMD 

PC,*! 

SA,flRXDB 

PC,AWTR 



;CLEAR WHITE FLAG 

;SELECT DRIVE 

;SET READ COMMAND + INT ENB 

;L0AD COMMAND 

; r GC AWAIT TRANSFER READY 

;LOAD SECTOR ADDRESS 

'PS.i^A 1 ! TRANSFER READY 

;L0AD TRACK ADDRESS 

JEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



BIS 
1ST 
BMI 
RTS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
JSR 
MOV 
TST 
BNE 



SERFL 
gRXCS, CMD 
CMD 

CMD/SRXCS 
CMD,ACSR 
RXCS.CSRA 
TA,SRXTA 
SA,SRXSA 
8RXDB,SRXES 
SRXES 7 ASTAT 
UTT,CBD 
#17^CMD 
"" gRXCS 

BDN 

•/SRXSB 



SUBROUTINE******* 

KLEAR STATUS ERROR FLAG 
GET RXCS 



<!md 

PC, 



;SEE IF ERROR 
' F SO: BR 
"LSE RETURN 

CAD RXCS 

CAD RXCS 

-E*S I3?5gss of rxcs 

,LOAD TRACK 

"LOAD SECTOR 

;GET RXES 

;LQAD RXES 

VSELECT DRIVE 

HOAD READ STATUS B COMMAND 

;EXECUTE COMMAND 

;gc await done 
;load status b 

;SEE IF NRITE 



HSGN$, BEGIN, RTER 
JMP CLEAR 



= = -„=- ERROR 

IF SO: BR 

ASCII MESSAGE CALL WITH COMMON HEADER 



****** ************************************** 

JREAD ERROR 
« ***** *************************** *********** 

;GO CLEAR ERROR 



MSGNS^BEGIN^HTER ;ASCII MESSAGE CALL WITH COMMON HEADER 

.*!***** Ml &% ********** * **************** *********************** 



fi §fiER$,BEGIN,TABLE "WRITE ERROR 
;*****£*** *^************a***** , **^S* l * ; *****ftft a a*3 



;CLEAR ERRORS******* 



***************** 



RXAE D 
XRXAEO 

525 
526 
527 
5" 

ho 

531 
5" 
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002230* 005267 
002234- 005767 

mho: 



000530 
000564 



681255- mm SooS 

002254' 005777 0005 
002260' 100005 



001154 



40' 001415 

P- mm 

54' 005777 
-60' 100005 

m mm w 

01670- 

III 

"04 

u 
i- : ft.. 

-_354* 000167 

mtf mm 



000540 



003544' 




000100 



mi m 

104403 000000" 003510* 



CLEAR: 
1$: 

2$: 
3$: 



dchk: 
IS: 

2S: 

3$: 

4$: 
5$: 

6$: 



SERFL 
SRXSB 

jtatti IUM 

gRXCS 



INC 
TST 

BEQ 
MOV 
JSR 
TST 

MOV RTYN,R 
BIC #17777 
CMP If ,rJ 
BNE 3s 
MSGN$,BEGIN,HRDE 

III ?l' s » 

JMP - 2 "~ 

TST 

TST 

BEQ 

JMP 

JMP 

MOV 

RTS 



ITRY COUNTER 



,R3 



FINI 
(SP) + 

WTF 

WRITE 

READ 

#260,RTYN 



;S T STATUS ERROR FLAG 
;SEE IF SB ERROR 

;i not: br 
;ihitialize 
>gc await Done 

Hi'iH-"!!! " CN IHIT 

|^^ I R I 0^|p ? G t E , CALL H " H C0MH ° S HEADEB 

;G T COUNTER 
;MJ)RK ASCII 

JSI E M 5| S D 8B E REtRIES 

I'MPiTife " 
{hwh" time 

JRETRY NRITE 
;RETRY READ 

|r r IW ETR¥ coontef 



;DATA CHECK SUBROUTINE********** 



TST 

BEQ 

RTS 

CLR 

MOV 

MOV 

MOV 

JSR 

MOVB 

DEC 

BNE 

JSR 

CLR 

MOV 

MOV 

CMP 

BNE 

CMP 

INC 

CMP 

BNE 

RTS 

MOV 

MOV 

MOV 

MOV 



MSGNS,! 
•****% 



SERFL 

Pg 

!WCNT 
rW?ri 
3,8RXCS 
C,AWTR 
" ,(R1)+ 



Hiwn™ ERR0R 
^ff*IiIi g "^sLcSSK¥ER 



2S 
PC,AWDN 

#WBUF,R1 
§RBUF,R2 



JRl)/tR2) 
(R1)+,(R2)+ 




;EXIT IF STATUS ERROR 
; SfeI A B B* D WORD COUHTE 

;address of read buffer 
•load read buffer command 

{immmm""" r "°« 

<fl E J! P .. E BiI T1ED EHTIRE BUFFER 

/lr NUT. BR 

;G0 AWAIT DONE 

JCLEAR WORD COUNTER 

;SET ADDRESS OF WRITE DATA 

IIIst a B2tI ss of read DAfA 

;IF DATA BAD: BR 

iHS' Hlg'gii.I'iK'" P0IHTER 

;if done: exit 
;lcad good address 
;load bad address 



;load good data 
;load bad data 
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581 002522* 104404 

Iff 882itt:Sill» 



cooooo- 



nun 



000230 




awdn: 
IS: 



002632' 104405 



mm 



mm- 



*m* 



000202 175270 

Q00144 175264 

00000* 003566" 

00040 175254 

000000* 000000 

176210 



000132 

000200 000130 




2$: 



awtr: 
IS: 



m mm 

627 



104405 

mm 



75166 

oi§7 2 ' 

666645 175152 
000000' 000000 
176106 




2$: 



u8lf?f 

DRVN: 

cmd: 
OTT: 



INC BMCNT }BU uo °* n unDn rrm* 

CMP #3,BSCNT -Si 

BNE 5$ ;IF ..-. 

RTS PC JRETRUN 

;AHAIT DONE BIf SUBROUTINE******* 



SEQ 0013 



m «htf m 



******************* ft* 

IRD COUNTER 
WORDS 



CLR 



11 



TOCNT 
|40,§RXCS 

pEAK$,BEGIN 
BREAKS, BEGIN 
INC fOCHT 
BNE if 
CLR ASTAT 
NOV RXCS.CSRA 
MOV CMD,JcSR 

msgn$,begin;dnto 
jmp fini 

RTS PC 



JPRESET TIME OUT COUNTER 

'Il'siS S" ESEt 

HPORA Y^RETURN ^MONITOR... 



NUE AT NEXT 
Oaf COUNTER 
IBD OUT: BR 



INSTRUCTION. 



m «« « 

;IF NOT 1MB 

KLEAR STATUS HORD 

;SET ADDRESS OF RXCS 

;S|T COMMAND HORD 

;ASCII MESSAGE CALL MITH COMHOH HEADER 

********* ft ft ft ******** ft ft ft ******* ft * ft ******** 

JDROP MODULE 
;EXIT 



* *********** * « ******** 



;AWAIT TRANSFER READY SUBROUTINE******* 



CLR 

BIT 

BNE 

BREAK 

BREAK 

INC 

BNE 

CLR 

MOV 

MOV 

MSGNS „- — - 

M 2Lft***i3S«*SSf*L 



;. 



TOCNT 
#200 # @RXCS 

S, BEGIN 
$, BEGIN 
TOCNT 

ASTAT 
RXCS,CSRA 
CMD,ACSR 
,BEGIN,TRTQ 
?f 



;PRESET TIME DOT COUNTER 
;S|E IF TRANSFER READY SET 

;IF so: BR 

Hemporary return to monitor.... 

*THEM CONTINUE AT NEXT INSTRUCTION. 
;BUMP TIME OUT COUNTER 
— TIMED OUT: BR 



NOT 



JIF _- 

;CLEAR STATUS WORD 
-~ET ADDRESS OF RXCS 



HRDERS, 

J *****% 
MP 
RTS 



FINI 
PC 



;SEf 

;SET COMMAND HCRD 

;ASCII MESSAGE CALL WITH COMMON HEADER 
** ************************* ****************** 
;TRANSFER READY TIME OUT 

********** A************************** ft ft******* 

;GC DROP MODULE 

;returh 



/FLAGS AND COUNTERS********** 



;holds which drives to test 

iUNIT FLAG 
>UNIT 1 FLAG 

;drive number 
;ccmmand save 
;u»it under test 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-OCT-78 12:16 

in ma- mm 

imv mm 

002774* 000000 
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SERFL: 
HTF: 

bhcnt: 

ta: 

sa: 

TASAV: 
SASAV: 

pcntr: 

TOCNT: 

hvflg: 



jstatus error flag 

;mrite flag 

1bad hord counter 

>£0RRSSI TRACK ADDRESS 
JCURRENT SECTOR ADDRESS 
;STARTING TRACK ADDRESS SAVE 
JSTARTING SECTOR ADDRESS SAVE 

HHPJtt MMr™ 

;* HRITE VERIFY FLAG 



}* NOT EQ ZERO 

It 

i* EQUAL ZERO 



CA3 DISABLE INTERNAL PASS 

TRACK £ SECTOR OFFSETTING. 
CB3 USE DATA PATTERN OF ZERO. 
CAD ALLOW INTERNAL PASS 

TRACK & SECTCR OFFSETTING. 
CB3 USE DATA PATTERN DEFINED 

BY SRI. 

(RANDOM OR ONES AND ZEROS). 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAEO.Pll 12-OCT-78 12:16 
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SEQ 0015 




°ofP 

051124 
042101 

mm 

053111 

mn 

047522 

mm 

051505 

044505 
046"** 



518!' 

TPCNTR: 



SRXES 
SRXSB 
SRXTA 
SRXSA 



table: 
arxcs: 
arxes: 
arxsb: 

ARXTA: 

arxsa: 



MSG3: 
MSG4: 



;COHSTANTS********** 

mm 

264 



•RXQ1 COMMAND REGI 



EGISTER 
;f0f AL PASS CO0NTER 



VARIABLES 



***«***«* 



"MESSAGE table********** 



SRXCS 
SRXES 
SRXSB 
SRXTA 
SRXSA 
-1 



.ASCTZ 



.ASCIZ 
.ASCIZ 



046111 020114 




* WRITE error: retry:' 

* read error: retry:* 

* DRIVE ' 

' DROP MODULES' 

'% INITIALIZE ERROR:' 

'% NO UNITS TO TEST:' 

'% REINITIALIZE ERROR: 

' DATA ERROR:' 

' FILL BUFFER ERROR:' 



RXAE D 
XRXAEO 

$ 

718 

}\\ 

722 



EC/X11 SYSTEM EXERCISER MODULE 
Pll 12-OCT-78 12:16 



74! 

746 
74- 



003266' 
003274' 
003302' 



052502 
042440 

000072 

003304" 044040 

mm- hil ~ 

003321' 040 



043106 ,_ 
051122 05 



ma 

047125 




°-mv> 



mm 

052111 

*m 

052111 
042516 

mm 

047101 
052517 



000 
000 



-W- 

m 003454^ 

003474' 177777 
003476' 003117' 

mm mi 

003506' 177777 




003544' 003215' 
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MSG10: .ASCIZ ' HARD ERROR:' 

MSGll: .ASCIZ ' UNIT NOT AVAILABLE' 

MSG12: .ASCIZ ' UNIT 1 NOT AVAILABLE' 

MSG13: .ASCIZ ' DONE BIT TIME OUT:' 

MSG14: .ASCIZ ' TRANSFER READY TIME OUT:' 



.EVEN 
DNUM: .ASCIZ ' 0' 

.EVEN 
RTYN: .ASCIZ ' 0' 



hter: 



rter: 



.EVEN 

MSG3 

DNUM 

MSG1 

RTYN 

MSG3 
DNUM 

®M 

-1 

DTER: MSG3 
DNUM 
MSG8 
-1 
BFER: MSG3 
DNUM 
MSG9 

DRPl: MSG5 
MSG4 

DRP2: MSG6 
MSG4 

DRP3: MSG7 
MSG4 
-1 



V*V 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-OCT-78 12:16 



in m m 

774 003566* 003375 

pi m m 

778 003576* 003127 

772 003600* 177777 



003602 
004004 



:« 



004 
000001 
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hrde: 

NONTO: 


MSG10 
MSG11 


NUMT1: 


MSG12 


dmto: 


MSG13 
MSG4 


trto: 


MSG14 
MSG4 




.EVEN 


hbuf: 

RBOF: 




•=.♦200 

-S.+200 



;HRITE BUFFER 
;READ BUFFER 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-0CT-78 12:16 



ACSR 

ADDR 

ADDR22= 

ARXCS 

ARXES 

ARXSA 

ARXSB 

ARXTA 



lie m 

AHAS 0001101 



_TAT 
AHAS 
AHDN 
AHTR 
BEGIN 



mm 

001000 

mm 

M »8I8 
..mil 

000110R 
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CROSS REFERENCE TABLE — USER SYMBOLS 



ur tw 



mi 

W 



in 



SEQ 0016 



454* 

188 



8* 



451* 

553# 
736# 



m 

290 

m 



613 



639$ 



500* 



742 



386* 



597* 



I III 



598* 



Hi 



1* 



564 
317 

III 



590$ 

m 



325 
532 



341 
539 



347 
579 



359 
581 



Kit 

618* 



634# 



484* 



485 



756 



&&$frf 4^p 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-0CT-78 12:16 



DVID1 
DVIDIX 



00QO14R 
002750R 



h'. mU 



EXITS 

EI«*f 

GHBUFS: 
HRDCHT 
HRDE 

8RDER$= 
RDPAS 
ICOHT 
ICOUNT 
IDRUM 
INIT 

JSrop 

MAP22S: 
MODHAM 
MQDSP 
MSGHS 

HSGSS 
MSGS 

SSGl 
SGip 
HSG11 
MSGia 
MSG13 
MSG14 
MSG2 
HSG3 
MSG4 
MSGS 
HSG6 
MSG7 
MSG8 
MSG9 
NTRUPT 
NULL = 
NUNTO 
NUNT1 
OPEN = 

OTOAS = 

E AS £S T 
PCNTR 
PIRQS = 
PQPSP = 

PSH": 

PRTYO = 



.0105... 
104415 

mm, 

0Q3552R 

104405 

00005QR 

Q00036R 

000040R 

mm 
m \W 

00000QR 
0Q0224R 
= 104403 

- 18448 

0Q3Q4 



.81 

-,-JH 

003375R 
003421R 

8li!»8 

003127R 

§|l 

003243R 
Q03260R 

88i2J8 R 

QQ3556R 

m888 B 

04420 
00Q34R 

005726 

mm 

000000 

PRTYl = Q00Q40 
PRTY2 = 000100 



\m 



748 
741 



MACY11 30AC1052) 12-OCT-78 17:04 PAGE 21 
CROSS REFERENCE TABLE — USER SYMBCLS 



»r 



245# 



SEQ 0019 



mr 

346# 



746 

763 



320 
304 

ill 



318* 
542 



631# 

456* 
605 



513* 
625 



522 



603 



623 



295 



251 
766 



458 
770* 



755 
J— 



75 



778 



m m m m m* 



221 



222 



223 



644$ 



RXDB 

SA 

SASAV 

SBADR 

SECK 

SELD 

SERFL 

SOFCNT 

SOFERf 

SOFPAi 

SPOINY 

SPSIZ 

SRXCS 

SRXES 

SRXSA 

SRXSB 

SRXTA 

SRI 

SR2 

SR§ 

SR4 

START 

STAT 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCNT 

TABLE 
TASAV 



002774R 
00300" 



use 



" iftitf . 



DOOliL 

34406 

-OQ046R 

000032R 

000040 

003020R 

m 

)26R 
I16R 

\llt 

I24R 
!24R 
16R 



003 
OOOi 



00. 
000 



88* 



ffl 

% 

ogog76R 

Mm 
mm 



245# 



RXAE DEC/XU SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-OCT-78 12:16 

PRTY3 
PRTY4 
PRTY5 
PRTY6 
£RTY7 

PSW 

PUSH 

PUSH2 

RANDS 

RANNUP 

she 

RESTRT 

RES1 

RES2 

RSTRT 

RTER 

RTYN 



000140 

000200 

000240 

= 000300 

: mm 

= 177776 
- 005746 
= 024646 
= 104417 
00054R 
Q40Q4R 

QQ056R 

mm 

Q3476R 
03460R 
03010R 
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Iff 1 m* 1»: m' m 



252* 412* 413 415* 

318- m ffi an 



ill ip. 



453 



462* 
503 



tth 



64H 



1* m* m* 3Bl 



264 
238 
278* 282 498* 667* 676 

111. |w; fit 668 » 67? 

509* 526 669f 678 

ssr aw 679 

247» 



433* 


466 


489 


501 


640# 


429* 


430 


432* 


433 


642# 



RXAE DEC/X11 SYSTEM EXERCISER MODULE 
XRXAE0.P11 12-OCT-78 12:16 
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DRP 

5 V 



mm 

QQ3004R 



TDR! 
|GQ 

iffb. mm 

"TO QQISyt 

iii 
P 



TSS 

SIIto 

UNlTl 

IP- 

VEC 
VECTOR 
VSET 
MASADR 

I- 

WYFLG 
XFLAG 



R 
,R 

ooose^R 

*R 

R 
R 
R 

nmi 

"" 602R 

\\k 

~'6R 
6R 
5R 



. ABS. 000000 
004206 



000 
001 



590* 



i!i» 



?i§* 



595* 



777# 
4fi7» 



Hi, $ 

Hit 

... Pit 

*i lib 

1 



It: 

737# 



610* 

309# 

460 

475 

566 

439# 

m 

740# 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XRXAEO^XRXAEO/SOL/CRF^YMsDDXCOM/XRXAEO 
RUN-TIME: 12 .3 SECONDS 
RUN-TIME RATIO: 22/4*5.0 
CORE USED: 7K (13 PAGES) 



615* 



m 



783# 
546 

a*. 

784# 



645# 



632# 



505 



till 

786# 



636# 



